home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / POLY-3D.DMO < prev    next >
Text File  |  1996-07-04  |  4KB  |  68 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   POLY-3D .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  18. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  19.                                                '┌────────────────────────────
  20. $INCLUDE "DAS-NB03.INC"                        '│ math lib
  21. $INCLUDE "DAS-NBV1.INC"                        '│ graphics lib
  22. $INCLUDE "PUBLICS .INC"                        '│ public variables pPi#
  23.                                                '│
  24. SCREEN 12                                      '│
  25. GraphicSETUP                                   '│
  26. CLS                                            '│
  27.                                                '│
  28. DIM tB AS PolygonTYPE                          '│ back box
  29. DIM tF AS PolygonTYPE                          '│ front box
  30.                                                '│
  31. tF.X        = 100  :  tB.X        =  75        '│ Wire Frame
  32. tF.Y        =  70  :  tB.Y        =  40        '│
  33. tF.Radius   =  50  :  tB.Radius   =  40        '│
  34. tF.Aspect   =   1  :  tB.Aspect   =   1        '│
  35. tF.StartDeg =  45  :  tB.StartDeg =  45        '│
  36. tF.Points   =   4  :  tB.Points   =   4        '│
  37. tF.Pmode    =   3  :  tB.Pmode    =   3        '│
  38. tF.Colour   =  14  :  tB.Colour   =  14        '│ colours match each other
  39. Draw3DPolygon tF, tB, 2                        '│
  40.                                                '│
  41. tF.X        = 300  : tB.X         = 275        '│ Hidded Lines
  42.                      tB.Colour    =   7        '│ colours don't match
  43. Draw3DPolygon tF, tB, 1                        '│
  44.                                                '│
  45. tF.X        = 500  : tB.X         =  475       '│ Solid Cube
  46.                      tB.Colour    = 14         '│ tB.colour is out of range
  47. Draw3DPolygon tF, tB, 0                        '│
  48. '═══════════════════════════════════════════════╡
  49. tF.X        = 100  :  tB.X        = 130        '│ Wire Frame
  50. tF.Y        = 270  :  tB.Y        = 340        '│
  51. tF.Radius   =  50  :  tB.Radius   =  40        '│
  52. tF.Aspect   =   0.6:  tB.Aspect   =   0.6      '│
  53. tF.StartDeg =  45  :  tB.StartDeg =  45        '│
  54. tF.Points   =   4  :  tB.Points   =   4        '│
  55. tF.Pmode    =   3  :  tB.Pmode    =   3        '│
  56. tF.Colour   =  14  :  tB.Colour   =  14        '│
  57. Draw3DPolygon tF, tB, 2                        '│
  58.                                                '│
  59. tF.X        = 300  : tB.X         = 330        '│ Hidded Lines
  60.                      tB.Colour    =   7        '│
  61. Draw3DPolygon tF, tB, 1                        '│
  62.                                                '│
  63. tF.X        = 500  : tB.X         =  530       '│ Solid Cube
  64.                      tB.Colour    = 14         '│
  65. Draw3DPolygon tF, tB, 0                        '│
  66.                                                '└───────────────────────────
  67.  
  68.